home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).adf / Redcode / Mausefalle2 < prev    next >
Text File  |  1990-09-11  |  713b  |  24 lines
  1. ; Mausefalle2
  2. ; -----------
  3.  
  4. knirps          MOV #0, -1                      ;Knirpsfalle
  5.                 JMP knirps
  6. num             DAT 1594
  7. falle           SPL *                   
  8.                 JMP falle               
  9. anzahl          DAT 797                
  10. offset          DAT 0
  11. grube           JMP -3
  12. start           SUB #10, offset      
  13.                 ADD #10, grube         
  14.                 MOV grube, @offset      
  15.                 DJN start, anzahl
  16.                 SPL knirps
  17. end             MOV #-7, anzahl
  18. kill            MOV #0, @anzahl
  19.                 SUB #5, anzahl
  20.                 DJN kill, num
  21.                 MOV #0, falle           
  22.                 MOV #1594, num
  23.                 JMP end   
  24.